(query-replace-map): Add `quit' bindings. Delete default binding.

diff --git a/lisp/replace.el b/lisp/replace.el
index 3c1789eb2543459312ff6a379659f8088d46ac81..3f730ec3f2fadb5e08cb3d795784efe718940788 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -384,9 +384,8 @@ The valid answers include `act', `skip', `act-and-show',
 (define-key query-replace-map "^" 'backup)
 (define-key query-replace-map "\C-h" 'help)
 (define-key query-replace-map "?" 'help)
-;; Cause all other types of events to be unread immediately,
-;; without regard to the global map.
-(define-key query-replace-map [t] 'ignore)
+(define-key query-replace-map "\C-g" 'quit)
+(define-key query-replace-map "\C-]" 'quit)
 
 (defun perform-replace (from-string replacements
                        query-flag regexp-flag delimited-flag